LETTER ED I TOR BY DON 7 I PRDAMN 


TIP CO 


0 = 8 
n i =o 
02-0 
E= 1 
80 P4=1 
90 86'-1 
100 L=64 
110 L6=6 


■ o 


YREM LINES PER' PAGE: 

YREM LEFT MARGIN . FOR TERMINAL 
YREM 1 OP MARGIN FOR PRINTER 
YREO LEFT SO ARC i. N FOR PRINTER 

Y R E O P A 0 E E. J E C T ■ 1 - 0 N > 

YREO PAUSE (1=0N) 

Y R E 0 S P A C E S P E R L IN E < 1 = S I N G L E 
YREO LINE LENGTH 
YREM OAX I QUO LXNEL^LENmiH^ 

10 YREO NUOBER OF LINES IN PRINT 

OP IES 

E (IMPRINTER 


SPACE) 


BLOCK 


PORT 1) 


120 B1 = 1O YREO NUOBER OF L. 

130 C6=1 YREO NUOBER UP Cl 
140 0=1 YREO OUTPUT DEVICE 
150 04=0 YREO DELAY 
160 REO 

170 S1 = 1NT(FREE(I)/2—500> YC=INT(S1/L~1)YS=INT(S1/ 255 + 1) 

180 LINE 164 

190 ERRSET 2230,L4,E4 

200 DIO A$(S1), B$(L6+1 ), C$(L6) , E$(L6) ? F$(L6),S$(L6) » X1$(20),M$(18)*N*(13) 
210 M$= "LISAEDFGMCHTBNRQ" \N$= " 1 i sasdf 9mehtbnrq"\Y=l 
220 FOR 1=1 TO L6\S$=S$+" "\NEXT 
230 PRINT TAB(5),"LETTER EDITOR" 

240 GOTO 700 

250 REN ***** MAIN PROGRAM 
260 PR I NT VI NPU'T 1 " > " , X $ 

270 FOR 1=1 TO 16\IF X$=M$ ( I > 1.) 

FOR 1=1 TO 16\IF X$=N$(1,1) 

IF LEN(X$>>=2 THEN 300\GOTO 




280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 


EXIT 

EXIT 


480YMEXT 
480\NEXT 


IF X$O H 0U n THEN 
IF X$0"LP" THEN 
IF X$<>" TM" THEN 
IF X$O h SP" THEN 
IF X*0-"LM" THEN 
IF X*<>" EJ" THEN 
IF X*0"PA" THEN 
IF X$0"NC" THEN 
IF X$0 1, DL ,, THEN 390Y INPUT" 
IF X$O l, LL" THEN 420YIF N>0 
IF L>L6 THEN L=L6YIF LCi: 


310Y INPUT 
320Y INPUT" 
330Y INPUT" 
340Y INPUT" 
350Y INPUT" 
360Y INPUT" 
370Y INPUT" 
380Y INPUT" 


1 = PRINTER 1 
X3YGOTO 260 


11 


THEN 
THEN 
260 

0 = TERMINAL / 

LINES PER PAGE 
TOP MARGIN "7 M1 
SINGLE = 1 / DOUBLE = 2‘SS6 
LEFT MARGIN " 7 M2YGOTO 260 
O = NO EJECT / 1 = EJECT ",E 
0 = NO PAUSE / 1 = PAUSE CP4YGOTO 
NUMBER OF COPIES "C6 
NUMBER OF DELAY LOOPS ",D4. 

THEN 410\INPUT1 ", ENTER LINE 
THEN L=12YC=INT(S1/L-1) 

LINES LENGTH ‘C LYGOTO 260 


260 


LENGTH 


430 

440 

450 

460 


410 PRINT " CAPACITY IS ",Ci 
420 IF X$="EN" THEN 1690 
IF X$="PR" THEN 1370 

IF X$( 1, 1 ) = ,, P" THEN 450 Y IF X$(1,1) = "p" THEN 450YG0T0 460 
Y=VAL ( Xf- ( 2, LEN ( X$ ) ) > \ IF Y>M THEM Y=N\IF YC1 THEN Y=1\G0SUB 
IF X$(1,1)="L" THEN 1890\IF X$ < 1,1 > = ",1 " THEN 1890 
470 GOTO 260 L £ S f\ 'E. D 

4SOONIGOTO1890,91O,1810,1140,910,820,1530,730,700,1980, 

C4?0>IF N=0 THEN 260\Y=1\GOSUB 2210XG0T0 260 
IF N=0 THEN 260\Y=N\GOSUB 2210XGQT0 260 

IF N=0 THEN 260\Y=Y+1X IF Y>N THEM Y=N\GOSUB 2210XG0T0 260 
INPUT" REMOVE WHICH FILE ",X1 *\DESTROY Xl$ 

PRINT " FILE ",X1$," HAS BEEN DESTROYED",\00T0 260 

S T OPYGO T0 260 


H *T 

7 5U 4 V O 



2210YGOTO 7 

0> rsl ^ 

500 7 5 1 07 , 51 

fcac 


- 














.i: i u 

./-.o 


6 00 
6 10 
620 
6 3 0 
640 
650 
660 
670 
680 
690 

(zo6 

710 

720 

740 
750 
760 
770 
780 
790 
800 
810 
(§20) 
830 
840 
850 
860 
870 
880 
890 
90(') 

Cgg 

9 3 0 

940 

950 
960 
970 
980 
990 
1000 
101 o 
1 020 
1030 

10 4 0 
1050 
1060 
1070 
1080 
1 090 
1 100 
1 1 1 0 
1 1 20 
1 130 


REM ' 

DAT A 

DAT A 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DA TA 

DATA 

DATA 

DATA 

DATA 

DATA 

PRINT 

FOR I 


MENU ROUT! ine 
T *■' 7 ILE ‘ - 11 P*H‘ j. N I b. 


' 0THLR" 


1 EM~EN 


M I 

up 

" A 
H E 
11 D 

> j «—• 

"T 

"B 

"N 


l. 


- L OP £ , " li - h| f- i 'J !j 1 ' 
■ " - "SP-SPACE" , "0 


H 


FILE", 
=HOLD" , "OU=OUTPUT 
■LM--LEFT MARGIN" , 
‘TM-- I OP MARGIN" , " 

‘' E J —PAGE £• jEC T T, 


' PR-PR 
DEV I Cl 


NT OUT 


-LIST " , "F --FILE" 

=COMPRESS"i"G ~GE I 
- I NSERT " , " R -REMOVE! 

—PGINT">"H 
=ALTER",""■ 

—ENTER","", 

-DELETE." , " 1 
“SEARCH " 7 " ’ 

=TOP",""LL=LINE LENGTH" 

“BOTTOM" , " " , "NONUMBER OF 
=NEXT","","PA=PAUSE","" 

' ","","DL=DELAY","" 

, PR INTTAB ( 33) , " MENU " \F'R I NT 

-1 TO 14\F0R J=1 TO 4VREAD X1$\PRINTTAB(J*20- 


' LP=LINES 


-'ER PAGE' 


COP IES", 


RESTORE\PRINT\PRINT " CAPACITY 

REM ***** GET FILE ROUTINE 
INF'UTT" GET WHICH DOCUMENT " , IJT> 
IP FILE(U$)=3 THEN 770 
PRINT ” DOCUMENT NOT FOUND"\OOTO 
OPEN #0, IJ$ 


■ 15 


IS 


l! 60 


LINES 


r N*L ) 




N=0 THEN 790XREAD #07.L, A$ < 1 

lines line length 


Y=1 THEN 860 
. N*L) 


r 0 C A P A c IT Y 11 \ G O T 0 


READ #0,N,L\IF 
CLOSE #0 

PRINT " DOCUMENT HAS ",N, 

Y=1\C=INT(SI/L-1)\GOTO 260 
REM ***** DELETE ROUTINE 
IF N=0 THEN 260\IF Y=N THEM 380\IF 
A$(1,N*L)=A$(1,(Y —1)*L)+AS(Y *L+1: 

GOTO 890 

A $(1,N*L)(Y*L+1,N*L ) 

GOTO 890 

Y=Y—1\IF Y<1 THEN Y=1 
N=N-1 

PRINT " LINE DELETED"\00T0 260 
’REM ***** INSERT / ENTER ROUTINE.' 

IF NGC THEN 930\PR INT " F ILI FD 
IF X$="E“ THEN Y-N 
FOR K=Y -5 TO Y 
IF KO THEN 970 

PR I NTTAB (3) , 7.31, K, TAB (M ) , " ! " , A$ ( (K- i ) *L+1, K*L ) , " I " 
NEXT 

FOR I=Y +1 TO C\IF N>=C THEN EXIT 1120 

PR I NTTAB ( 3 ) , 7.31 , I, TAB ( M TAB < L+M+1 ) , " | , 

FOR K=1 TO L+1XPRINT CHR$(8>,\MEXT 
INPUT 1 " " , BS\IF B$O"0" THEM 1030 

FOR K=1 TO MxPRl'NT CHR$ ( 8 ) , YNEXTXPRI NT S$,S*<1,M> 
PRINTXIF r E*T="" THEN B$=" " 

IF B$ (1,1) O" .. " THEN 1 060 

B$=s$(1,L/ 2-(LEN(B* >-1)/2)+ B$(2,LEN(B$ ) ) 

B$=B$+S$ 

Ct=B*<1,L) 

N-N+l 

A$(I*L+1,N*L+L)=A$((I.1)*L+1,N*L) 

Af> ( ( I -1 ) *L+1, I *L ) =C$ ( 1 , L;) 

Y=Y+1\NEXT 

F'R I NT "F I LLED TO Cftl'-AG' I T Y " 

GOTO 260 


),Xl$,\NEXT\PF 
LENGTH ",L\GC 




• 0 







150 
1 1 60 

I 1 70 
1 180 

II 90 
1 200 
1 21 0 
1220 
1 230 
1 240 
1250 
1260 
1270 
1280 
1 290 
1 300 
i. 31 0 
1320 
1 330 


" ’ B$\ B-=LEN ( B$ ) 


GOSUB 2210 
INPUT "OLD STRING: 

IF B$="" THEN 2AO 
PRINT 

PRINr^TOING^rFoSNo'''' 1 < Y ~‘ >*'-♦>♦■»-> ,. B , THEN 

GuTO 1160 

IF 1=1 THEN 1240 

£$2?* ( (y ~ 1) * L+1 ’ (Y ~I>*L+I-1)\GOTO 1250 


" THEN 1300\NEXT 


IB (Y-l>*L+I+B>Y*L THEN 1290 
F- $=A$ ( ( Y-1 ) *L+1 +b , Y*L ) \F 1 =LEN < F$ ) 

1 STEP -IMF F*(K,K>>" 

F$=""\bOTU 1310 

F*=" "\F=0\F 1 =0\G0T0 1310 
F$=F$(1,K) 

Fnp N1 jI? B l' I * : f 17 V ’ TAB ' M E*, S* < 1 ■, B > , TAB ( M+L-t FN < F* 

FUFg J-l TU ti+F l + 1 \PR I NT CHRS < S) , \NFXT * 

INPUT"",C* . 


1 340 

AT ( ( Y- 

_ i 
j. 

1 350 

GOSUB 

uL. 

1 360 

GOTO I 


1370 

R E M <- 

1380 

IF N=C 

) 

1390 

FOR 1= 

= i 

1 400 

FOR . 1= 

0 

"i 4 1 o 

FOR .J= 

a 

1 4 20 

BT~ AT( 

(, 

;!. 430 

IF B*( 

i 

1 440 

IF BT ( 

i 

1 450 

FQR K= 

3 

1 460 

PR I NT 


1 470 

X 4 = X 4 + t 

1480 

IF 86= 

1 

1 490 

IF X4< 

x:.‘ 

1 500 

X4=0 


). 51 0 

IF E= 1 

“| 

1 520 

IF P4 = 

1 

i. 530 

FOR K— 

1 

3. 540 

NEXT J, 






'” THEN 1500\IF R$<j,i 
\" THEM B*<1,i)=" " 


/ 


UTf 


T. H E. N IF X 4 > X 3—B 1 

roR Vs) - \ To ^ 


W 


w *t 




/ 


1550 X4—0\ IF E=1 THEN PRINT #0, GHR$ ( 1">) 

1560 NEXT I . 

GOTO 260 

REN -a-*-#•»•# FILE ROUTINE 
INPUT1" ENTER FILE NANE " , IJT 
IF FILE (US)<0 THEN 1630 

INPUT " EXISTING FILE WILL BE FRARFD OK"'* » v* 
IF X$Q"r THEN 260VG0TIT L.40 ’ XS 

CREATE US,S 
OPEN #0,0$ 


1650 


IF N—O THEN 1660VWRI TE #OXL., A* < 1 , N*L ) 


WRI TE #0X0, N, L.\CLOSE #0 
PRINT " DOCUMENT - " , |JS, " 

REN *■***•«■ ENVELOPE ROUTINE- 
INPUT "INSERT ENVELOPF",XS$ 

pno 9 ! 7 10XIF A«<<I-l)»L + l,a-l) #L+1)r> .. .. 

FUR 1 = 1 TU I +5\ IF AS (Cl — 1 ) «-L + 1 , ( I — 1 ) #|_ +1 )"= 11 ■■ 

PR 1N T #u ’ TAB ( 30 >,AS((I-1) *L+1 , I ~ 1 > .*| 4 40 ) x NF y T 
IF E= 1 THEN PRINT #0, CHRS < i ? ) \NLX 

GOTO 260 


HAS BEEN FILED"\GOTO 260 


THfciN EXIT 
THEN EXIT 


1220\NEXT 


+1 ) . F$ , ■* : “ 


i 

HP 


THEN 1500 


vS T ^ FV 



MOV NEXT 
’40 















1 790 
I 90 0 

TU7u 

1330 
1 340 
1 850 
!. 360 

1 380 

(Ms> 

PToo 
19 1 0 
1 920 
1 930 
1940 
1 950 
1 960 

I "j / * j 

(^98^ 

1 990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 

2 O 7 0 
2080 
2090 
21 00 
21 10 
2120 

21 30 
2140 
2 1 50 
2 1 60 
2 1 70 
2 1 80 
2190 
2200 

22 1 C 
2220 
2230 
2 2 4 0 

226 0 
: 2 7 0 


REF-' 1 ***** HOLD ROUTINE' 

T J P 2;;7,, THEN 1770XPRINT " NO TEXT to FILE"\nnrn ? ao 
IF FI t_E (. HULD " ) <0 THEN CREATE " Hi H D " , c ; 

PP t mt ’ " P0L ° " N WR 1 ' E tt( ' 7 “° ’ N ’ L * WRI TE #0/.L., A TCI, N*L > S H f,s| # ,, 

PRINT DOCUMENT WRITTEN TO HOLD FILE" \un T n 9/,n *' """. 

REM ***** SEARCH ROUTINE 
I INPUT1" ENTER SIR IMG ",FT\Fi $= F $(l, i) 

mp R t 1 ~ (Y ~ 1 ** L +1 T0 N*L\IF F1 $ -AT( I, I) THEN 1ASO 
N hX I 

PRINT " END OF SEARCH*’\GOTO 260 
IF F$OAf ( I, I+LEN ( F$ ) - 1 I THEM 1 RAO 
Y=INT(I/L)+1 

PRINT\GOSUB 2210 

I NPUT 1 "CONTINUE SEARCH? ",G*\IF GT- " Y " THEN lASn\Rn T n -v-o 

REM ***** LIST ROUTINE -U ^60 

IF N=0 THEN 260 

IF XT="L" THEN 1950\ IF x$=" 1 " THEN 1 '-•'HO 
Y2=VAL(XT(2,LEN(XT))) 

IF Y2+Y>=N THEN Y2=N-Y+1\IF Y2<1 THEN 260 

GOTO I960 

Y2-N-Y+1 

vZ-fxLjo lir ~ :1 ™ 1 NTTflE ‘ 3 ’ ■ X31 ’ TflB <«> ’":" • «* < < 1 > *.♦., ..^L,. ■■:.. • ne X 

) REM ***** COMPRESS ROUTINE 
Y2=Y 

N1=I-Y\N2=N1 XIF A * ((I ~ 1> * L+1 ’ I * L)=s $(1’L> THEN EXIT 2Q10XNEXT 
FOR 1=1 TO N1\FOR J=1 TO 100 

THEN EXIT a*®' 1 *’" 

IF hT ( Y*L+1 , Y*L+L )>ST ( 1 , L.) THEN 2100 
IF I=N1 THEN EXIT 2160YIF Y=N-1 THEN 2080 

N-N-1XN--' 7 1 > #L > ~ A * ( <Y+1 > 1 ’ N *L >\AT ( ( N— 1 ) *L+1 , N*L.) =8T ( j , L ) 

EXIT 2160 

E : R 221 J? 20XIF AT(Y*L+K, Y*L+K) = ” 11 THEN EXIT 2110\NEXT 
S4=K\IF 84 THEN EXIT 2150 

AT ( < Y-1 ) *L.+1, Y*L ) =AT ( < Y-1 ) *L +1, Y*L-S3+1 ) +AT ( Y*L.+1, Y*L+S4 ) 

AT v Y *L+1 , Y*L+L_ ) =AT ( Y*L+S4+ J , Y*L +L ) +ST 
NEXT J ‘ 

Y=Y+ 1 
NEXT I 
Y=Y2—1 

IF N2>N—1 THEN N2=N-1 

FUR .1 = 1 TO N2+1 \Y=Y+1 \GOSUB 2210NNEXT 
GOTO 260 

REM ***** PRINT A LINE 

R I NTT AB () x /. :■'• I , y x TAB ( M ) , ! " , AT ( ( Y— 1 ) *L+1 , Y*L ) , " ! “ \RETl IRN 
REM ***** ERROR TRAP 
IF E4—15 THEN STOP 

l F E4=8 THEN PRINT " HARD DISK ERROR" 

It- L4=S I HEN PRINT " OUT OF BOUNDS ERROR" 

II- E4=7 THEN PRINT " FILE ERROR - NO DISK ArTF 00 " 

E RR SET 2230,L 4 7 E4 


90 GOTO 260 



